   1 .BIORYTHMS - - M.R. ANGLISS   1979
   2 :return 
   3 :return 
   4 :return 
   5 :return 
   8 clear ;print ;print ;print 
  10 FC=10;NT=0
  11 print "   -"
  12 print "  O R"
  13 print " I   H"
  14 print "B     Y   S"
  15 print "       T M"
  16 print "        H"
  20 print ;FC=1
  25 NT=3
  30 NT=3
  40 input "MONTH"M
  45 clear 
  50 input "DAY"D
  55 clear 
  60 input "YEAR 19??"Y
  65 clear 
  70 print "BIO-RHYTHM for THE"
  80 input "YEAR 19??"C
  81 clear 
  82 print ;print ;print 
  85 print "STAND BY for YOUR FACTORS to BE COMPUTED"
  90 A=(C-Y)-1
  95 goto 380
 100 A=Amul 365
 101 gosub Mmul 10+250
 102 A=A+K
 103 A=A+L
 110 X=A+3;Y=A+3;Z=A+3
 120 if X<23goto 150
 130 X=X-23
 140 goto 120
 150 print "PHYSICAL",X
 160 if Y<28goto 190
 170 Y=Y-28
 180 goto 160
 190 print "EMOTIONAL",Y
 200 if Z<33goto 230
 210 Z=Z-33
 220 goto 200
 230 print "MENTAL",Z
 240 goto 400
 260 K=365-D;return 
 270 K=334-D;return 
 280 K=304-D;return 
 290 K=273-D;return 
 300 K=243-D;return 
 310 K=212-D;return 
 320 K=181-D;return 
 330 K=151-D;return 
 340 K=120-D;return 
 350 K=90-D;return 
 360 K=59-D;return 
 370 K=31-D;return 
 380 L=Adiv 4
 390 goto 100
 400 print ;print 
 410 print "for WHAT DATE DO YOU WISH A BIO-RHYTHM?"
 420 print 
 450 input "MONTH"M
 460 input "DAY"D
 470 gosub Mmul 10+490
 480 goto 620
 500 W=0;return 
 510 W=31;return 
 520 W=59;return 
 530 W=90;return 
 540 W=120;return 
 550 W=151;return 
 560 W=181;return 
 570 W=212;return 
 580 W=243;return 
 590 W=273;return 
 600 W=304;return 
 610 W=334;return 
 620 U=W+D
 630 R=U+X;S=U+Z;E=U+Y
 640 if R<23goto 670
 650 R=R-23
 660 goto 640
 670 if S<28goto 700
 680 S=S-28
 690 goto 670
 700 if E<33goto 730
 710 E=E-33
 720 goto 700
 730 clear ;print 
 735 FC=65;NT=0
 740 print "EMOT"
 750 print ;print ;print 
 760 print "PHYS"
 770 print ;print 
 780 print "MENT"
 790 box 0,0,1,86,3
 800 J=27;G=0-S;F=28-S;Q=28
 810 H=Qdiv 4;I=0;P=0
 815 box 15,J,125,1,3
 820 for T=Gto Fstep 1
 830 if I<Hgoto 850
 840 if I<(Hmul 3)goto 950
 850 P=P+1
 860 box Tmul 2,Pmul 2+J,1,1,3
 870 I=I+1
 880 next T
 890 if J=0goto 930
 900 if J=-26goto 970
 910 J=0;G=0-R;F=21-R;Q=21
 920 goto 810
 930 J=-26;G=0-E;F=33-E;Q=33
 940 goto 810
 950 P=P-1
 960 goto 860
 970 for T=1to 9999step 1
 980 next T
 982 clear 
 985 FC=0
 990 print "TODAY YOU ARE",A+U
1000 print "DAYS OLD"
1010 print "DO YOU WISH ANOTHER BIO-RHYTHM for THE YEAR OF",C
1020 input "1=YES  0=NO"T
1030 if T=1goto 400
1040 clear ;print ;print 
1050 print "DOES SOME ELSE WANT A BIO-RHYTHM, OR A DIFFERENT YEAR?"
1060 input "1=YES  2=PROGRAM FINISHED"T
1070 if T=1goto 10
:return ;run